home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / launcher.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-09  |  15.3 KB  |  478 lines
  1. VERSION 5.00
  2. Begin VB.Form Launcher 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Quad-Ball Launcher, By Arvinder Sehmi 1999.  Arvinder@Sehmi.co.uk"
  6.    ClientHeight    =   5715
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7095
  10.    Icon            =   "Launcher.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5715
  15.    ScaleWidth      =   7095
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.HScrollBar SpeedSetter 
  18.       Height          =   195
  19.       LargeChange     =   20
  20.       Left            =   2385
  21.       Max             =   200
  22.       Min             =   10
  23.       TabIndex        =   9
  24.       Top             =   4680
  25.       Value           =   10
  26.       Width           =   3615
  27.    End
  28.    Begin VB.CheckBox LaunchExit 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H00000000&
  31.       Caption         =   "Exit After Launch?"
  32.       BeginProperty Font 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   700
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   &H000000FF&
  42.       Height          =   420
  43.       Left            =   1890
  44.       TabIndex        =   8
  45.       Top             =   4050
  46.       Value           =   1  'Checked
  47.       Width           =   1950
  48.    End
  49.    Begin LaunchQuadball.Logo Logo 
  50.       Height          =   1125
  51.       Left            =   135
  52.       TabIndex        =   5
  53.       Top             =   3420
  54.       Width           =   1500
  55.       _ExtentX        =   2646
  56.       _ExtentY        =   1984
  57.    End
  58.    Begin VB.Label Label9 
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "^\ Too Fast!"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   8.25
  64.          Charset         =   0
  65.          Weight          =   700
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H00FFFFFF&
  71.       Height          =   195
  72.       Left            =   5805
  73.       TabIndex        =   15
  74.       Top             =   4995
  75.       Width           =   1275
  76.    End
  77.    Begin VB.Shape Shape1 
  78.       BorderColor     =   &H00FFFF00&
  79.       Height          =   735
  80.       Left            =   90
  81.       Top             =   4545
  82.       Width           =   6900
  83.    End
  84.    Begin VB.Label Label8 
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "Higher Speed = Higher Score"
  87.       ForeColor       =   &H00C0C0C0&
  88.       Height          =   195
  89.       Left            =   180
  90.       TabIndex        =   14
  91.       Top             =   4995
  92.       Width           =   2625
  93.    End
  94.    Begin VB.Label Label7 
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "^\ Expert"
  97.       BeginProperty Font 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   8.25
  100.          Charset         =   0
  101.          Weight          =   700
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       ForeColor       =   &H00FFFFFF&
  107.       Height          =   195
  108.       Left            =   4140
  109.       TabIndex        =   13
  110.       Top             =   4950
  111.       Width           =   870
  112.    End
  113.    Begin VB.Label Label6 
  114.       BackStyle       =   0  'Transparent
  115.       Caption         =   "^\ Novice"
  116.       BeginProperty Font 
  117.          Name            =   "MS Sans Serif"
  118.          Size            =   8.25
  119.          Charset         =   0
  120.          Weight          =   700
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       ForeColor       =   &H00FFFFFF&
  126.       Height          =   285
  127.       Left            =   2475
  128.       TabIndex        =   12
  129.       Top             =   4950
  130.       Width           =   960
  131.    End
  132.    Begin VB.Label SetSpeed 
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "10"
  135.       BeginProperty Font 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   13.5
  138.          Charset         =   0
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       ForeColor       =   &H000000FF&
  145.       Height          =   285
  146.       Left            =   6255
  147.       TabIndex        =   11
  148.       Top             =   4635
  149.       Width           =   555
  150.    End
  151.    Begin VB.Label Label5 
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "Game Comet Speed:"
  154.       BeginProperty Font 
  155.          Name            =   "MS Sans Serif"
  156.          Size            =   9.75
  157.          Charset         =   0
  158.          Weight          =   700
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       ForeColor       =   &H00FFFF00&
  164.       Height          =   285
  165.       Left            =   180
  166.       TabIndex        =   10
  167.       Top             =   4635
  168.       Width           =   2400
  169.    End
  170.    Begin VB.Image Title 
  171.       Height          =   1575
  172.       Left            =   90
  173.       Picture         =   "Launcher.frx":09BA
  174.       Top             =   180
  175.       Width           =   6930
  176.    End
  177.    Begin VB.Line Line8 
  178.       BorderColor     =   &H00FFFF00&
  179.       X1              =   135
  180.       X2              =   1710
  181.       Y1              =   1890
  182.       Y2              =   1890
  183.    End
  184.    Begin VB.Line Line7 
  185.       BorderColor     =   &H00FFFF00&
  186.       X1              =   3915
  187.       X2              =   5400
  188.       Y1              =   1755
  189.       Y2              =   1755
  190.    End
  191.    Begin VB.Label Train 
  192.       Alignment       =   2  'Center
  193.       BackStyle       =   0  'Transparent
  194.       Caption         =   "Play"
  195.       BeginProperty Font 
  196.          Name            =   "MS Sans Serif"
  197.          Size            =   12
  198.          Charset         =   0
  199.          Weight          =   400
  200.          Underline       =   0   'False
  201.          Italic          =   0   'False
  202.          Strikethrough   =   0   'False
  203.       EndProperty
  204.       ForeColor       =   &H0000FF00&
  205.       Height          =   345
  206.       Left            =   2025
  207.       TabIndex        =   3
  208.       Top             =   3285
  209.       Width           =   1485
  210.    End
  211.    Begin VB.Shape TrainShape 
  212.       BorderColor     =   &H00FF0000&
  213.       Height          =   555
  214.       Left            =   2025
  215.       Shape           =   2  'Oval
  216.       Top             =   3150
  217.       Width           =   1500
  218.    End
  219.    Begin VB.Label Story 
  220.       Alignment       =   2  'Center
  221.       BackStyle       =   0  'Transparent
  222.       Caption         =   "Play"
  223.       BeginProperty Font 
  224.          Name            =   "MS Sans Serif"
  225.          Size            =   12
  226.          Charset         =   0
  227.          Weight          =   400
  228.          Underline       =   0   'False
  229.          Italic          =   0   'False
  230.          Strikethrough   =   0   'False
  231.       EndProperty
  232.       ForeColor       =   &H0000FF00&
  233.       Height          =   345
  234.       Left            =   5265
  235.       TabIndex        =   4
  236.       Top             =   3960
  237.       Width           =   1485
  238.    End
  239.    Begin VB.Shape StoryShape 
  240.       BorderColor     =   &H00FF0000&
  241.       Height          =   555
  242.       Left            =   5265
  243.       Shape           =   2  'Oval
  244.       Top             =   3825
  245.       Width           =   1500
  246.    End
  247.    Begin VB.Line Line6 
  248.       BorderColor     =   &H00FFFF00&
  249.       X1              =   3915
  250.       X2              =   5265
  251.       Y1              =   4095
  252.       Y2              =   4095
  253.    End
  254.    Begin VB.Line Line5 
  255.       BorderColor     =   &H00FFFF00&
  256.       X1              =   3915
  257.       X2              =   6705
  258.       Y1              =   2250
  259.       Y2              =   2250
  260.    End
  261.    Begin VB.Line Line4 
  262.       BorderColor     =   &H00FFFF00&
  263.       X1              =   3915
  264.       X2              =   3915
  265.       Y1              =   1755
  266.       Y2              =   4095
  267.    End
  268.    Begin VB.Line Line3 
  269.       BorderColor     =   &H00FFFF00&
  270.       X1              =   135
  271.       X2              =   2025
  272.       Y1              =   3375
  273.       Y2              =   3375
  274.    End
  275.    Begin VB.Line Line2 
  276.       BorderColor     =   &H00FFFF00&
  277.       X1              =   135
  278.       X2              =   3195
  279.       Y1              =   2295
  280.       Y2              =   2295
  281.    End
  282.    Begin VB.Line Line1 
  283.       BorderColor     =   &H00FFFF00&
  284.       X1              =   135
  285.       X2              =   135
  286.       Y1              =   1890
  287.       Y2              =   3375
  288.    End
  289.    Begin VB.Label Label3 
  290.       Alignment       =   2  'Center
  291.       BackStyle       =   0  'Transparent
  292.       Caption         =   "Quad-Ball Training Mode"
  293.       BeginProperty Font 
  294.          Name            =   "MS Sans Serif"
  295.          Size            =   12
  296.          Charset         =   0
  297.          Weight          =   700
  298.          Underline       =   0   'False
  299.          Italic          =   0   'False
  300.          Strikethrough   =   0   'False
  301.       EndProperty
  302.       ForeColor       =   &H00FFFFFF&
  303.       Height          =   375
  304.       Left            =   135
  305.       TabIndex        =   2
  306.       Top             =   1935
  307.       Width           =   3210
  308.    End
  309.    Begin VB.Label Label2 
  310.       Alignment       =   2  'Center
  311.       BackStyle       =   0  'Transparent
  312.       Caption         =   "Quad-Ball Story Mode"
  313.       BeginProperty Font 
  314.          Name            =   "MS Sans Serif"
  315.          Size            =   12
  316.          Charset         =   0
  317.          Weight          =   700
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       ForeColor       =   &H00FFFFFF&
  323.       Height          =   375
  324.       Left            =   3780
  325.       TabIndex        =   1
  326.       Top             =   1845
  327.       Width           =   3210
  328.    End
  329.    Begin VB.Label Info 
  330.       Alignment       =   2  'Center
  331.       AutoSize        =   -1  'True
  332.       BackStyle       =   0  'Transparent
  333.       Caption         =   "If You Have Any Problems, Questions or Comments Please Contact Me: Arvinder@Sehmi.Co.Uk"
  334.       ForeColor       =   &H00808080&
  335.       Height          =   195
  336.       Left            =   90
  337.       TabIndex        =   0
  338.       Top             =   5445
  339.       Width           =   6795
  340.    End
  341.    Begin VB.Label Label4 
  342.       BackStyle       =   0  'Transparent
  343.       Caption         =   $"Launcher.frx":5032
  344.       ForeColor       =   &H0000FFFF&
  345.       Height          =   1905
  346.       Left            =   4005
  347.       TabIndex        =   7
  348.       Top             =   2430
  349.       Width           =   2760
  350.    End
  351.    Begin VB.Label Label1 
  352.       BackStyle       =   0  'Transparent
  353.       Caption         =   "In This Mode Of Quad-Ball You Must Try And Keep The Comet On The Screen For As Long As Possible To Beat The Top Score."
  354.       ForeColor       =   &H0000FFFF&
  355.       Height          =   825
  356.       Left            =   270
  357.       TabIndex        =   6
  358.       Top             =   2430
  359.       Width           =   2895
  360.    End
  361. Attribute VB_Name = "Launcher"
  362. Attribute VB_GlobalNameSpace = False
  363. Attribute VB_Creatable = False
  364. Attribute VB_PredeclaredId = True
  365. Attribute VB_Exposed = False
  366. ' This Is Just A nice interface in which '
  367. ' to launch Quad-Ball, other then that is'
  368. ' has no special job.                    '
  369. '________________________________________'
  370. Dim StoryHighlight As Boolean
  371. Dim TrainHighlight As Boolean
  372. Private Sub Form_Load()
  373.  StoryHighlight = False
  374.  TrainHighlight = False
  375.  Me.Show
  376.  Me.Refresh
  377.  Logo.Start  'start the spinning logo
  378. End Sub
  379. Private Sub Form_Unload(Cancel As Integer)
  380.  Logo.StopAnimation ' stop spinning logo
  381. End Sub
  382. 'the Following 6 subs
  383. 'unhighlight the label buttons
  384. '(when the mouse moves over then)
  385. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  386.  If TrainHighlight = True Then Unhighlight False, True
  387.  If StoryHighlight = True Then Unhighlight True, False
  388. End Sub
  389. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  390.  If TrainHighlight = True Then Unhighlight False, True
  391.  If StoryHighlight = True Then Unhighlight True, False
  392. End Sub
  393. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  394.  If TrainHighlight = True Then Unhighlight False, True
  395.  If StoryHighlight = True Then Unhighlight True, False
  396. End Sub
  397. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  398.  If TrainHighlight = True Then Unhighlight False, True
  399.  If StoryHighlight = True Then Unhighlight True, False
  400. End Sub
  401. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  402.  If TrainHighlight = True Then Unhighlight False, True
  403.  If StoryHighlight = True Then Unhighlight True, False
  404. End Sub
  405. Private Sub SpeedSetter_Change()
  406.  SetSpeed = SpeedSetter.Value
  407. End Sub
  408. Private Sub SpeedSetter_Scroll()
  409.  SetSpeed = SpeedSetter.Value
  410. End Sub
  411. Private Sub Title_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  412.  If TrainHighlight = True Then Unhighlight False, True
  413.  If StoryHighlight = True Then Unhighlight True, False
  414. End Sub
  415. 'highlight the story button
  416. Private Sub Story_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  417. If TrainHighlight = True Then Unhighlight False, True
  418. If StoryHighlight = True Then Exit Sub
  419. With Story
  420. .FontBold = True
  421. .FontSize = 16
  422. .Top = 3900
  423. End With
  424. StoryShape.BorderWidth = 3
  425. StoryShape.BorderColor = vbCyan
  426. WAVPlay "click.qbs"
  427. StoryHighlight = True
  428. End Sub
  429. 'highlight the train button
  430. Private Sub Train_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  431. If StoryHighlight = True Then Unhighlight True, False
  432. If TrainHighlight = True Then Exit Sub
  433. With Train
  434.  .FontBold = True
  435.  .FontSize = 16
  436.  .Top = 3225
  437. End With
  438. TrainShape.BorderWidth = 3
  439. TrainShape.BorderColor = vbCyan
  440. WAVPlay "click.qbs"
  441. TrainHighlight = True
  442. End Sub
  443. 'load Q-Ball Training
  444. Private Sub Train_Click()
  445.  ThisDir
  446.  Shell "QuadBall_Training.exe " & Trim(Str(SpeedSetter.Value)), vbNormalFocus
  447.  If LaunchExit.Value = vbChecked Then Unload Me: End
  448. End Sub
  449. 'Loa d Q-Ball Story
  450. Private Sub Story_Click()
  451.  ThisDir
  452.  Shell "QuadBall.exe " & Trim(Str(SpeedSetter.Value)), vbNormalFocus
  453.  If LaunchExit.Value = vbChecked Then Unload Me: End
  454. End Sub
  455. ' unhilights specified button on call
  456. Public Sub Unhighlight(StoryLabel As Boolean, TrainLabel As Boolean)
  457. If TrainLabel = True Then
  458.  With Train
  459.   .FontBold = False
  460.   .FontSize = 12
  461.   .Top = 3285
  462.  End With
  463.  TrainShape.BorderWidth = 1
  464.  TrainShape.BorderColor = vbBlue
  465.  TrainHighlight = False
  466. End If
  467. If StoryLabel = True Then
  468.  With Story
  469.  .FontBold = False
  470.  .FontSize = 12
  471.  .Top = 3960
  472.  End With
  473.  StoryShape.BorderWidth = 1
  474.  StoryShape.BorderColor = vbBlue
  475.  StoryHighlight = False
  476. End If
  477. End Sub
  478.